SetOverwrite {Concrete AS 3600-09}

SetOverwrite

Syntax

SapObject.SapModel.DesignConcrete.AS_3600_09.SetOverwrite

VB6 Procedure

Function SetOverwrite(ByVal Name As String, ByVal Item 
 As Long, ByVal Value As Double, Optional ByVal ItemType As eItemType = 
 Object) As Long

Parameters

Name

The name of an existing frame object or group depending 
 on the value of the ItemType item.

Item

This is an integer between 1 and 15, inclusive, indicating 
 the overwrite item considered.

1 = Framing type (beam 
 and column)

2 = Live load reduction 
 factor (beam and column)

3 = Unbraced length ratio, 
 Major (beam and column)

4 = Unbraced length ratio, 
 Minor (beam and column)

5 = Effective length factor, 
 K Major (column only)

6 = Effective length factor, 
 K Minor (column only)

7 = Moment coefficient, 
 km Major (column only)

8 = Moment coefficient, 
 km Minor (column only)

9 = Nonsway moment factor, 
 Db Major (column only)

10 = Nonsway moment factor, 
 Db Minor (column only)

11 = Sway moment factor, 
 Ds Major (column only)

12 = Sway moment factor, 
 Ds Minor (column only)

13 
 = Tangent of the angle of concrete compressive strut (beam only)

14 = Consider torsion (beam 
 only)

15 = Concrete cover for 
 closed stirrups (beam only)

Value

The value of the considered overwrite item.

1 = Framing type

0 = As specified in preferences

1 = Sway special

2 = Sway intermediate

3 = Sway ordinary

4 = Nonsway

2 = Live load reduction 
 factor

Value >= 0; 0 means 
 use program determined value.

3 = Unbraced length ratio, 
 Major

Value >= 0; 0 means 
 use program determined value.

4 = Unbraced length ratio, 
 Minor

Value >= 0; 0 means 
 use program determined value.

5 = Effective length factor, 
 K Major

Value >= 0; 0 means 
 use program determined value.

6 = Effective length factor, 
 K Minor

Value >= 0; 0 means 
 use program determined value.

7 = Moment coefficient, 
 km Major

Value >= 0; 0 means 
 use program determined value.

8 = Moment coefficient, 
 km Minor

Value >= 0; 0 means 
 use program determined value.

9 = Nonsway moment factor, 
 Db Major

Value >= 0; 0 means 
 use program determined value.

10 = Nonsway moment factor, 
 Db Minor

Value >= 
 0; 0 means use program determined value.

11 = Sway moment factor, 
 Ds Major

Value >= 
 0; 0 means use program determined value.

12 = Sway moment factor, 
 Ds Minor

Value >= 
 0; 0 means use program determined value.

13 
 = Tangent of the angle of concrete compressive strut

Value >= 0; 0 means 
 use program determined value.

14 = Consider torsion

0 = No

Any other value = Yes

15 = Concrete cover for 
 closed stirrups

Value >= 
 0; 0 means use program determined value.

ItemType

This is one of the following items in the eItemType 
 enumeration:

Object = 0

Group = 1

SelectedObjects = 2

If this item 
 is Object, the assignment is made to the frame object specified by the 
 Name item.

If this item 
 is Group, the assignment is made to all frame objects in the group specified 
 by the Name item.

If this item 
 is SelectedObjects, assignment is made to all selected frame objects and 
 the Name item is ignored.

Remarks

This function 
 sets the value of a concrete design overwrite item.

The function 
 returns zero if the item is successfully set, otherwise it returns a nonzero 
 value.

VBA Example

Sub SetConcreteDesignOverwriteItemAS_3600_09()

'dimension variables

Dim SapObject as cOAPI

Dim SapModel As cSapModel

Dim ret As Long

'create Sap2000 object

Set SapObject = CreateObject("CSI.SAP2000.API.SapObject")

'start Sap2000 application

SapObject.ApplicationStart

'create SapModel object

Set SapModel = SapObject.SapModel

'initialize model

ret = SapModel.InitializeNewModel

'create new concrete frame section property

ret = SapModel.PropFrame.SetRectangle("R1", 
 "4000Psi", 20, 12)

'create model from template

ret = SapModel.File.New2DFrame(PortalFrame, 
 2, 144, 2, 288, True, "R1", "R1")

'set concrete design code

ret = SapModel.DesignConcrete.SetCode("AS 
 3600-09")

'set overwrite item

ret = SapModel.DesignConcrete.AS_3600_09.SetOverwrite("8", 
 1, 2)

'close Sap2000

SapObject.ApplicationExit False

Set SapModel = Nothing

Set SapObject = Nothing

End Sub

Release Notes

Initial release in version 15.0.1.

Added items 13~15 in version 23.4.0

See Also

GetOverwrite